home *** CD-ROM | disk | FTP | other *** search
/ BCI NET / BCI NET Dec 94.iso / archives / telecomm / bbs / axshsupp.lha / AXsh-SZIMEX03.lha / SubZeroImport.rexx < prev    next >
OS/2 REXX Batch file  |  1993-01-02  |  2KB  |  97 lines
  1. /****** SubZeroImport.rexx ***************************************************
  2. *
  3. *  $VER: SubZeroImport 0.3á (02-Jan-93) - A Mail/News tosser for SubZeroNet
  4. *
  5. ******************************************************************************
  6. *
  7. *  Naming conventions:
  8. *  ~~~~~~~~~~~~~~~~~~~
  9. *     Mail  {machine}.mail.{ufn}    Mail batch
  10. *     News  {machine}.news.{ufn}    News batch
  11. *
  12. *     Xfer  {machine}.uucp.{ufn}    TrapDoor transfer archive
  13. *
  14. ******************************************************************************/
  15.  
  16. SIGNAL ON HALT
  17. SIGNAL ON ERROR
  18. SIGNAL ON BREAK_C
  19.  
  20. OPTIONS FAILAT 21
  21.  
  22. INBOUND = 'IN:'
  23. BAKDIR  = 'IN:Bax/'
  24.  
  25. UUSPOOL = 'AXSH:usr/spool/'
  26.  
  27. UUMAIL  = UUSPOOL || 'mail/'  /* Home of mail */
  28. UUNEWS  = UUSPOOL || 'news/'  /* Home of news */
  29. UUBATCH = UUSPOOL || 'batch/' /* Temporary dir */
  30.  
  31. MY_MACH = 'mink'              /* This is my machine */
  32. STRLEN  = LENGTH(MY_MACH) + 6 /* '.mail.' or '.news.' */
  33.  
  34. FILEPAT = INBOUND || MY_MACH || '.uucp.????????'
  35.  
  36. NETWORK = 'subzero.dk'
  37.  
  38. suppLib = 'rexxsupport.library'
  39.  
  40. /*****************************************************************************/
  41.  
  42. IF ~SHOW('L',suppLib) THEN CALL ADDLIB(suppLib,0,-30,0)
  43.  
  44. /*
  45. ** Clean up /usr/spool/(mail|news)/
  46. */
  47. IF EXISTS(UUMAIL || MY_MACH || '.' || NETWORK) THEN DO
  48.    ADDRESS COMMAND 'AXSH:bin/MailServer'
  49. END
  50.  
  51. IF EXISTS(UUNEWS || MY_MACH || '.' || NETWORK) THEN DO
  52.    ADDRESS COMMAND 'AXSH:bin/RN net fakemachine.subzero.dk unpack'
  53. END
  54.  
  55. /*
  56. ** Unpack pending archives from inbound to /usr/spool/batch/
  57. */
  58.  
  59. ADDRESS COMMAND 'LhA -x0 e' FILEPAT UUBATCH /* Extract archives */
  60. ADDRESS COMMAND 'Move' FILEPAT BAKDIR       /* Backup */
  61.  
  62. dirList = SHOWDIR(UUBATCH,'F')
  63.  
  64. /*
  65. ** Here we go - one bundle at a time
  66. */
  67. DO i = 1 TO WORDS(dirList)
  68.    fileName = UPPER(WORD(dirList,i))
  69.    IF LEFT(fileName,STRLEN) == UPPER(MY_MACH) || '.MAIL.' THEN DO
  70.       ADDRESS COMMAND 'Copy' UUBATCH || fileName UUMAIL || MY_MACH || '.' || NETWORK
  71.       ADDRESS COMMAND 'AXSH:bin/MailServer'
  72.       CALL DELETE(UUBATCH || fileName)
  73.    END
  74.    ELSE
  75.    IF LEFT(fileName,STRLEN) == UPPER(MY_MACH) || '.NEWS.' THEN DO
  76.       ADDRESS COMMAND 'Copy' UUBATCH || fileName UUNEWS || MY_MACH || '.' || NETWORK
  77.       ADDRESS COMMAND 'AXSH:bin/RN net fakemachine.subzero.dk unpack'
  78.       CALL DELETE(UUBATCH || fileName)
  79.    END
  80. END
  81. EXIT
  82.  
  83.  
  84. HALT:
  85. BREAK_C:
  86.    SAY '***Break: User abort requested!'
  87.    EXIT 1
  88.  
  89.  
  90. ERROR:
  91.    SAY '***Break: Error in line' SIGL
  92.    EXIT 10
  93.  
  94. /*
  95. ** EOF
  96. */
  97.